home *** CD-ROM | disk | FTP | other *** search
-
- *** M A C H I N E P O K E R ***
-
- Written in 1993 for AMOS Basic by Glenn N Babic
-
-
-
- This program simulates the sort of Poker machine that can be found in casinoes
- and private clubs around Australia. However, there are many different varia-
- tions of these machines so this simulator will not suit all of them. Some of
- the source code is easy to edit (see NB below) but for machines that, say, use
- the suits of seven as "wild cards", changes would be much more complicated.
-
- Instructions
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- To enter credits (used for betting) into the computer, the ENTER key in used
- like a coin slot, for putting in $1 coins (which buy five credits, as each
- credit is worth 20รณ). The UP and DOWN cursor keys increase and decrease your
- bet respectively by a credit (a maximum of 20 credits can be bet at any one
- time). The SPACE BAR is used to deal a hand after betting and to redeal for any
- discarded cards. RETURN allows you to "Take Score" (to collect any winnings
- after a hand is complete). To hold one of the cards, the first five function
- keys are used, representing the five cards in their respective orders. To
- "unhold" a card, the corresponding function key should be pressed a second time.
- When a winning hand has been made, the player can go for double or nothing
- instead of taking score by pressing "D". A face down card will be displayed and
- its value must be determined. Press "<" for small (ace to six) and ">" for big
- (eight to king). If the guess is correct then the value of the winning hand
- will be seen to double. "Doubling-Up" can continue until the player "Takes
- Score" or guesses incorrectly and that hand's winnings are lost. You can see
- how much money you have entered into the "machine" and also how much you have
- won or lost (profit-wise) at the bottom of the screen in yellow text. If you
- wish to quit or restart the program then press ESC while you have a bet of 0 and
- you will be given these options ("Q" for quit, "R" for restart, and "C" for
- cancel). A line of wide text beneath the cards tells you when most of these
- functions can be performed.
-
- Nota Bene!
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Although it is not illegal to play these games, it IS for unlicensed venues to
- pay-out (though that doesn't necessarily stop them!). Hopefully you will find
- this program serves useful practise while offering the comfort that if you lose
- big you will be none the poorer (and similarly the dissapointment that if you
- win big you will be none the richer!). Don't let this program motivate you to
- play the real money guzzling machines - using this program sensibly (i.e.
- entering an amount of money you could actually afford to gamble and betting a
- number of credits you afford to risk) shows that you ultimately lose more than
- you win (obviously, or the machines wouldn't make a profit, now would they?).
- As different machines work differently, I have noted in the procedure
- SET_UP_PLAYING_SCREEN how to change the data for the amounts that winning hands
- pay-out. Also in this procedure I have included a special function that changes
- "Aces Or Better" into "Jacks Or Better" (one pair of jacks, queens, kings, or
- aces) if activated. Deleting the apostrophes (') in front of several lines in
- this procedure will make the game play like some of the machines at Perth's
- Burswood Casino.
-
- More Technical Info
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- Although it didn't take too much mind racking to write this program, the artwork
- for the cards took some time and planning. If you would like to use the cards
- in your own programs, then you will have to open up at least an eight colour
- screen and have the same icon bank loaded (the IFF picture from which they were
- cut should be on the disk). Then whenever you wish to draw a card on the
- screen, call procedure MAKE_CARD[CX,CY,NUMBER,SUIT] where CX,CY is the co-
- ordinate of the top-left corner of the card, NUMBER is its value (1=ace to 13=
- king) and SUIT is its suit! (1=spades, 2=clubs, 3=hearts and 4=diamonds). The
- cards in this game are quite large and so the pictures could be shrunk in size
- through Deluxe Paint etc. (Klondike.AMOS also on this disk uses a hires screen
- so the cards are half the height and width. Also the cards in Klondike differ a
- little, as instead of having shadows they're surrounded in a black border.
- Because of this, the MAKE_CARD procedure in Klondike has a minor change to that
- in Machine Poker). If you do decide to use these cards, please credit me and
- keep all the designs intact (especially the Ace of Spades and the design on the
- back of the cards - they have my initials on them!).
-
- Post Script!
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- I have managed to get ALL the winning hands (Yes, even the Royal Flush!) on this
- game. Let me see anyone else do that!
-
- - Glenn N Babic
- Reg. #1646
-